AL AL,HE↔

;COM ALSAIF(37B,XH)/COM↔
;↓
;λ
;SAV ALSAIF↔

;COM ALSAI(37B,XH)/COM↔
;↓
;λ
;SAV ALSAI↔
 
;ru alsaif↔
;pass3←pass3↔
;↓
;λ
;do fraid↔
;pass3↔
;≠≠≠E↔

ru alsai↔
gobble←gobble↔
↓
λ
do fraid↔
gobble↔
≠≠≠E↔

ru alsai↔
wldmod←wldmod↔
↓
λ
do fraid↔
wldmod↔
≠≠≠E↔

ru alsai↔
exprs←exprs↔
↓
λ
do fraid↔
exprs↔
≠≠≠E↔

ru alsai↔
alprin←alprin↔
↓
λ
do fraid↔
alprin↔
≠≠≠E↔

com emiter(37b,h)/com↔ 
↓
λ
com intdef(37b,h)/com↔
↓
λ
com pmatch(37b,h)/com↔ 
↓
λ
com tcalc(37b,h)/com↔
↓
λ
com arith(37b,h)/com↔ 
↓
λ
com alrec(37b,h)/com↔ 
↓
λ
com armsol.sai(37b,h)/com↔ 
↓
λ
COM ALC(37b,h)/com↔ 
↓
λ

;REN ALC.OLD←ALC.DMP↔

R LOADER 160↔
ALC≠
λ
SETUWP↔
SSAVE ALCNEW↔
SEN ARG all done↔
;COMP AL/COMP↔